home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / bbs / maxfreq2.zip / MAXFREQ.MEC < prev    next >
INI File  |  1996-06-11  |  12KB  |  303 lines
  1. [comment
  2.                                 MAXFREQ v2.00
  3.                     Offline File Request Handler for Maximus
  4.                            (c) 1996 by John Medland
  5.              PHOTO 334 BBS! Toronto Canada (416) 539-9591 1:250/840
  6.  
  7. ]
  8. [LT s][goto r2]
  9. [cls]
  10. [red on grey][colour] [endcolour] MAXFREQ v2.0 [yellow on grey dim] Request Handler  [white]
  11. [ifexist]maxfreq\requests.bbs [goto L0]
  12.  
  13.  [grey]Found [white]0 [grey]requests.
  14.  
  15. [/L0][ifexist]maxfreq\requests.bbs                               [nocolour lf endcolour][locate 2 49][black on grey][colour]  [endcolour] Requests   [white][nocolour lf endcolour]
  16. [ifexist]maxfreq\request.lst [down link]maxfreq\request.lst
  17. [colour][locate 2 1][red on grey]  MAXFREQ v2.0 [yellow on grey dim] Request Handler  [white]
  18.  
  19.  
  20.  
  21. [endcolour][ifexist]maxfreq\requests.bbs [locate  4  1] [yellow]R[nocolour])[endcolour][grey]ead requests
  22.  [yellow]S[nocolour])[endcolour][grey]etup program
  23.  [yellow]M[nocolour])[endcolour][grey]ake request
  24.  [yellow]Q[nocolour])[endcolour][grey]uit
  25.  
  26. [white]Select: [menu]|qmvsr
  27. [choice]Q[cls quit]
  28. [choice]m[goto r2]
  29. [choice]S[goto setup]
  30. [ifexist]maxfreq\requests.bbs [goto L1]
  31. [cls quit]
  32. [/L1][cls][lightgrey]──────────────────────────────────────────────────────────────────────────────
  33. [yellow][moreoff][link]maxfreq\requests.bbs
  34. [ifexist]maxfreq\callkill.bat [goto L3]
  35. [/L4][colour][UP lightgrey]══════════════════════════════════════════════════════════════════════════════
  36. [endcolour]
  37. [yellow]A[gray]gain, [yellow]D[gray]elete, [yellow]Q[gray]uit? [white][[a,d,Q] [menu]|qad
  38. [choice]q[goto L2]
  39. [choice]|[goto L2]
  40. [choice]a[cls][goto L1]
  41.  
  42. [grey]Delete all requests? [white][[Y,n] [menu]yn|
  43. [choice]n[cls quit]
  44. [delete]maxfreq\requests.bbs
  45. [delete]maxfreq\request.lst
  46. [white]
  47. Done![pause][cls][quit]
  48. [/L2][cls][quit]
  49. [/L3][colour][up lightgrey]══════════════════════════════════════════════════════════════════════════════
  50. [endcolour]
  51. [grey]Kill Tagged Requests? [white][[Y,n] [menu]Yn|
  52. [choice]n[delete]\max\maxfreq\callkill.bat
  53. [choice]n
  54. [delete]maxfreq\delreq.$$$
  55. [choice]n[white]Clearing tags...[pause] Done![pause][QUIT]
  56.  
  57. [white]Killing tagged requests..[blink].[steady] [dos]maxfreq\callkill.bat
  58. [white][bs bs]. Done![pause]
  59. [delete]maxfreq\callkill.bat
  60. [delete]maxfreq\delreq.$$$
  61. [ifexist]maxfreq\requests.bbs [goto still]
  62. [DELETE]MAXFREQ\REQCHECK.BBS
  63.  
  64. [white]No more requests![pause][cls][QUIT]
  65. [/still][up][cleol][up][cleol][up][cleol][up cleol][goto L4]
  66. [/r2][cls]
  67. [red on grey][colour] [endcolour] MAXFREQ v2.0 [yellow on grey dim] Offline File Request  [white]
  68. [delete]maxfreq\reqcheck
  69. [ifexist]maxfreq\requests.bbs                               [nocolour lf endcolour][locate 2 49][black on grey][colour]  [endcolour] Requests   [white][nocolour lf endcolour]
  70. [ifexist]maxfreq\request.lst [down link]maxfreq\request.lst
  71. [ifexist]maxfreq\requests.bbs [dos]type maxfreq\requests.bbs |find "%n[endcolour]" > maxfreq\reqcheck.bbs
  72. [link]maxfreq\reqcheck.bbs
  73. [colour][locate 2 1][red on grey]  MAXFREQ v2.0 [yellow on grey dim] Offline File Request  [white]
  74. [endcolour][locate 4 1][nocolour] [endcolour][white]Complete file NAME only, NO wildcards!
  75.  
  76.  [yellow]FILE: [black on grey]            [bs bs bs bs bs bs bs bs bs bs bs bs][readln]
  77. [white][ifentered] [cls quit]
  78. [open]maxfreq\reqtemp
  79. [write][COLOUR][black]~%J`*** FIRST LINE of REQUEST ******************************************[endcolor][delete]maxfreq\requser.bbs
  80. [write][colour][black]~%J`[endcolor][key_poke]%J
  81. [write][colour][black]~%J`[endcolor][readln]
  82. [write][colour][black]~%J`[endcolour][white]
  83. [write][lt a][ckoff][locate 4 1][yellow]Sorry, limit is [RED][BLINK]ONE[Yellow][STEADY] request per caller.[locate 6 1][pause][white][enter][colour][black]~%J`%n[endcolour][CLS][EXIT]
  84. [delete]current.bat
  85. [open]current.bat
  86. [write]@echo off
  87. [write]echo [up up][repeat] [51][lightgrey]%%3 %%4[colour][black]~%J`[endcolour]>>maxfreq\reqtemp
  88. [write]echo [up lightgreen]%J[WHITE][colour][black]~%J`[endcolour]>>maxfreq\reqtemp
  89. [open]$tmp2$$.bat
  90. [write]@echo off
  91. [write]echo.|date|find "Current">$tmp3$$.bat
  92. [write]$tmp3$$
  93. [open]nul:
  94. [dos]$tmp2$$
  95. [delete]$tmp2$$.bat
  96. [delete]$tmp3$$.bat
  97. [delete]current.bat
  98. [open]maxfreq\reqtemp
  99. [write][colour][black]~%J`[endcolour][white]
  100. [write][white]Requested by: [grey]%n    [white]Down: [grey]%ik  [white]Up: [grey]%Ik[open]maxfreq\requser.bbs [acs hidden][colour][black]~%J`[endcolour]
  101.  
  102.  [gray]Send this request? [white][[Y,n] [menu]Yn|
  103.  [choice]n[goto r1]
  104. [write][write][colour][black]~%J`[endcolor][key_poke]~%n
  105. [write][write][colour][black]~%J`[endcolor][choice]u[menu_cmd user_editor]
  106. [delete]current.bat
  107. [open]current.bat
  108. [write]@echo off
  109. [write]echo [write][up repeat] [51][lightgrey]%%3 %%4[colour][black]~%J`[endcolour]>>maxfreq\reqtemp
  110. [write]echo [write][up lightgreen]%J [WHITE][colour][black]~%J`[endcolour]>>maxfreq\reqtemp
  111. [open]$tmp2$$.bat
  112. [write]@echo off
  113. [write]echo.|date|find "Current">$tmp3$$.bat
  114. [write]$tmp3$$
  115. [open]nul:
  116. [dos]$tmp2$$
  117. [delete]$tmp2$$.bat
  118. [delete]$tmp3$$.bat
  119. [delete]current.bat
  120. [open]maxfreq\reqtemp
  121. [write][write][colour][black]~%J`[endcolour]
  122. [write][write][white]Requested by: [grey]%n    [white]Down: [grey]%ik  [white]Up: [grey]%Ik[acs hidden][colour][black]~%J`[endcolor]
  123. [write][open]nul: [acs hidden][colour][black]~%J`[endcolor]
  124. [write][link]maxfreq\reqadd [acs hidden][colour][black]~%J`[endcolor]
  125. [write][choice]q[quit][colour][black]~%J`[endcolor]
  126. [write][ifexist]maxfreq\DELREQ.$$$ [colour][black]~%J`[endcolor][open]maxfreq\callkill.bat
  127. [write][ifexist]maxfreq\DELREQ.$$$ [colour][black]~%J`[endcolor][write]@echo off
  128. [write][ifexist]maxfreq\DELREQ.$$$ [colour][black]~%J`[endcolor][write]call maxfreq\reqkill %J
  129. [write][ifexist]maxfreq\DELREQ.$$$ [colour][black]~%J`[endcolor][open]nul: [up]
  130. [write][choice]M[colour][black]~%J`[endcolor][link]maxfreq\reqarea.bbs
  131. [write][choice]M[colour][black]~%J`[endcolor][up dos]maxfreq\reqmsg.bat %S %s %J %%J %n
  132. [write][choice]M[up colour][black]~%J`[endcolor][nocolour]──────────────────────────────────────────────────────────────────────────────[endcolour]
  133. [write][delete]maxfreq\requser.bbs [COLOUR][black]~%J`*** LAST LINE of REQUEST ***[up ENDCOLOUR]
  134. [OPEN]NUL:
  135. [log]RREQUESTED OFFLINE FILE: %J
  136.  
  137.  [white]Sending request to [sysop_name].
  138. [open]REQ$ADD.BAT
  139. [write]@ECHO OFF
  140. [IFEXIST]maxfreq\REQUEST.LST [write]type maxfreq\request.lst | find "[green]" > maxfreq\REQUEST.$$$
  141. [IFEXIST]maxfreq\REQUEST.LST [write]ECHO [colour][repeat] [48][endcolour] [green]%J[colour][black]~%J`[endcolour][white]>> maxfreq\request.$$$
  142. [IFEXIST]maxfreq\REQUEST.LST [write]COPY maxfreq\reqUEST.$$$ maxfreq\reqUest.LST >NUL
  143. [IFEXIST]maxfreq\REQUEST.LST [goto haverl]
  144. [write]ECHO [colour][repeat] [48][endcolour] [green]%J[colour][black]~%J`[endcolour][white]>> maxfreq\request.lst
  145. [/haverl]
  146. [write]type maxfreq\reqtemp | FIND "[black]" >> maxfreq\requests.bbs
  147. [open]NUL:
  148. [dos]REQ$ADD.BAT
  149. [delete]req$ADD.BAT
  150. [delete]maxfreq\reqtemp
  151. [ifexist]maxfreq\reqUEST.$$$ [delete]maxfreq\reqUEST.$$$
  152.  [white]Done![pause]
  153. [/r0]
  154. [lt a][CLS][quit]
  155.  [grey]Request another file? [white][[y,N] [menu]Yn|
  156. [choice]Y[goto r2]
  157. [top]
  158. [/r1]
  159. [open]nul:
  160. [delete]maxfreq\reqtemp
  161.  [white]Request deleted.
  162. [goto r0]
  163. [/setup]
  164.  [yellow]T[nocolour])[endcolour][grey]ext editor
  165.  [yellow]M[nocolour])[endcolour][grey]essage area
  166.  [yellow]L[nocolour])[endcolour][grey]ocating disks
  167.  [yellow]Q[nocolour])[endcolour][grey]uit
  168.  
  169. [white]Select: [menu]tlmq|
  170. [choice]L[goto selist]
  171. [choice]T[goto seted]
  172. [choice]M[goto setmes]
  173. [choice]Q[top]
  174. [choice]|[top]
  175.  
  176. [/selist cls]
  177. [grey]To find the backup disk for each request:
  178.  
  179.  [yellow]R[nocolour])[endcolour][grey]un a program
  180.  [yellow]S[nocolour])[endcolour][grey]earch a text file
  181.  [yellow]Q[nocolour])[endcolour][grey]uit
  182.  
  183. [white]Select: [menu]SRQ|
  184.  
  185. [choice]S[goto slist]
  186. [choice]R[goto rlist]
  187. [choice]Q[top]
  188. [choice]|[top]
  189.  
  190. [/slist][white]PATH\NAME [grey]of storage list?[white]: [readln]
  191. [ifentered] [goto selist]
  192. [ifexist]%J [goto lfound]
  193.  
  194. File not found![pause pause]
  195. [moreoff up cleol up cleol up cleol goto slist]
  196. [/lfound][delete]